home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 1997 February / PC Shareware 1997-02.iso / programy / pcbaby / _setup.1 / PCBaby4.exe / 0 / RCDATA / TPRENATAL / TPRENATAL.txt
Text File  |  1996-10-21  |  31KB  |  1,133 lines
  1. object Prenatal: TPrenatal
  2.   Left = 133
  3.   Top = 125
  4.   BorderStyle = bsDialog
  5.   Caption = 'Prenatal History'
  6.   ClientHeight = 399
  7.   ClientWidth = 560
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   OnActivate = FormActivate
  15.   TextHeight = 16
  16.   object TabNote: TTabbedNotebook
  17.     Left = 0
  18.     Top = 0
  19.     Width = 560
  20.     Height = 399
  21.     Align = alClient
  22.     TabFont.Color = clBlue
  23.     TabFont.Height = -12
  24.     TabFont.Name = 'MS Sans Serif'
  25.     TabFont.Style = []
  26.     TabOrder = 0
  27.     object TTabPage
  28.       Left = 5
  29.       Top = 26
  30.       Caption = 'Dates to Remember'
  31.       object Label1: TLabel
  32.         Left = 16
  33.         Top = 16
  34.         Width = 173
  35.         Height = 19
  36.         Alignment = taRightJustify
  37.         Caption = 'Pregnancy Confirmed:'
  38.         Font.Color = clBlue
  39.         Font.Height = -16
  40.         Font.Name = 'Arial'
  41.         Font.Style = [fsBold]
  42.         ParentFont = False
  43.       end
  44.       object Label2: TLabel
  45.         Left = 8
  46.         Top = 336
  47.         Width = 132
  48.         Height = 22
  49.         Caption = 'Prenatal History'
  50.         Font.Color = clBlue
  51.         Font.Height = -19
  52.         Font.Name = 'Arial'
  53.         Font.Style = []
  54.         ParentFont = False
  55.       end
  56.       object Label5: TLabel
  57.         Left = 33
  58.         Top = 48
  59.         Width = 156
  60.         Height = 19
  61.         Alignment = taRightJustify
  62.         Caption = 'Estimated Due Date:'
  63.         Font.Color = clBlue
  64.         Font.Height = -16
  65.         Font.Name = 'Arial'
  66.         Font.Style = [fsBold]
  67.         ParentFont = False
  68.       end
  69.       object Label6: TLabel
  70.         Left = 66
  71.         Top = 80
  72.         Width = 123
  73.         Height = 19
  74.         Alignment = taRightJustify
  75.         Caption = 'Began to Show:'
  76.         Font.Color = clBlue
  77.         Font.Height = -16
  78.         Font.Name = 'Arial'
  79.         Font.Style = [fsBold]
  80.         ParentFont = False
  81.       end
  82.       object Label7: TLabel
  83.         Left = 73
  84.         Top = 112
  85.         Width = 116
  86.         Height = 19
  87.         Alignment = taRightJustify
  88.         Caption = 'Felt Baby Kick:'
  89.         Font.Color = clBlue
  90.         Font.Height = -16
  91.         Font.Name = 'Arial'
  92.         Font.Style = [fsBold]
  93.         ParentFont = False
  94.       end
  95.       object Label8: TLabel
  96.         Left = 59
  97.         Top = 144
  98.         Width = 130
  99.         Height = 19
  100.         Alignment = taRightJustify
  101.         Caption = 'Heard Heartbeat:'
  102.         Font.Color = clBlue
  103.         Font.Height = -16
  104.         Font.Name = 'Arial'
  105.         Font.Style = [fsBold]
  106.         ParentFont = False
  107.       end
  108.       object Label9: TLabel
  109.         Left = 98
  110.         Top = 176
  111.         Width = 91
  112.         Height = 19
  113.         Alignment = taRightJustify
  114.         Caption = 'Ultrasound:'
  115.         Font.Color = clBlue
  116.         Font.Height = -16
  117.         Font.Name = 'Arial'
  118.         Font.Style = [fsBold]
  119.         ParentFont = False
  120.       end
  121.       object Label10: TLabel
  122.         Left = 30
  123.         Top = 208
  124.         Width = 159
  125.         Height = 19
  126.         Alignment = taRightJustify
  127.         Caption = 'Baby Names Picked:'
  128.         Font.Color = clBlue
  129.         Font.Height = -16
  130.         Font.Name = 'Arial'
  131.         Font.Style = [fsBold]
  132.         ParentFont = False
  133.       end
  134.       object Label11: TLabel
  135.         Left = 42
  136.         Top = 240
  137.         Width = 147
  138.         Height = 19
  139.         Alignment = taRightJustify
  140.         Caption = 'First Baby Shower:'
  141.         Font.Color = clBlue
  142.         Font.Height = -16
  143.         Font.Name = 'Arial'
  144.         Font.Style = [fsBold]
  145.         ParentFont = False
  146.       end
  147.       object Label12: TLabel
  148.         Left = 35
  149.         Top = 272
  150.         Width = 154
  151.         Height = 19
  152.         Alignment = taRightJustify
  153.         Caption = 'Nursery Completed:'
  154.         Font.Color = clBlue
  155.         Font.Height = -16
  156.         Font.Name = 'Arial'
  157.         Font.Style = [fsBold]
  158.         ParentFont = False
  159.       end
  160.       object D1: TMaskEdit
  161.         Left = 192
  162.         Top = 8
  163.         Width = 81
  164.         Height = 26
  165.         EditMask = '!99/99/00;1;_'
  166.         Font.Color = clBlack
  167.         Font.Height = -16
  168.         Font.Name = 'Arial'
  169.         Font.Style = []
  170.         MaxLength = 8
  171.         ParentFont = False
  172.         TabOrder = 0
  173.         Text = '  /  /  '
  174.       end
  175.       object D2: TMaskEdit
  176.         Left = 192
  177.         Top = 40
  178.         Width = 81
  179.         Height = 26
  180.         EditMask = '!99/99/00;1;_'
  181.         Font.Color = clBlack
  182.         Font.Height = -16
  183.         Font.Name = 'Arial'
  184.         Font.Style = []
  185.         MaxLength = 8
  186.         ParentFont = False
  187.         TabOrder = 1
  188.         Text = '  /  /  '
  189.       end
  190.       object D3: TMaskEdit
  191.         Left = 192
  192.         Top = 72
  193.         Width = 81
  194.         Height = 26
  195.         EditMask = '!99/99/00;1;_'
  196.         Font.Color = clBlack
  197.         Font.Height = -16
  198.         Font.Name = 'Arial'
  199.         Font.Style = []
  200.         MaxLength = 8
  201.         ParentFont = False
  202.         TabOrder = 2
  203.         Text = '  /  /  '
  204.       end
  205.       object D4: TMaskEdit
  206.         Left = 192
  207.         Top = 104
  208.         Width = 81
  209.         Height = 26
  210.         EditMask = '!99/99/00;1;_'
  211.         Font.Color = clBlack
  212.         Font.Height = -16
  213.         Font.Name = 'Arial'
  214.         Font.Style = []
  215.         MaxLength = 8
  216.         ParentFont = False
  217.         TabOrder = 3
  218.         Text = '  /  /  '
  219.       end
  220.       object D5: TMaskEdit
  221.         Left = 192
  222.         Top = 136
  223.         Width = 81
  224.         Height = 26
  225.         EditMask = '!99/99/00;1;_'
  226.         Font.Color = clBlack
  227.         Font.Height = -16
  228.         Font.Name = 'Arial'
  229.         Font.Style = []
  230.         MaxLength = 8
  231.         ParentFont = False
  232.         TabOrder = 4
  233.         Text = '  /  /  '
  234.       end
  235.       object D6: TMaskEdit
  236.         Left = 192
  237.         Top = 168
  238.         Width = 81
  239.         Height = 26
  240.         EditMask = '!99/99/00;1;_'
  241.         Font.Color = clBlack
  242.         Font.Height = -16
  243.         Font.Name = 'Arial'
  244.         Font.Style = []
  245.         MaxLength = 8
  246.         ParentFont = False
  247.         TabOrder = 5
  248.         Text = '  /  /  '
  249.       end
  250.       object D7: TMaskEdit
  251.         Left = 192
  252.         Top = 200
  253.         Width = 81
  254.         Height = 26
  255.         EditMask = '!99/99/00;1;_'
  256.         Font.Color = clBlack
  257.         Font.Height = -16
  258.         Font.Name = 'Arial'
  259.         Font.Style = []
  260.         MaxLength = 8
  261.         ParentFont = False
  262.         TabOrder = 6
  263.         Text = '  /  /  '
  264.       end
  265.       object D8: TMaskEdit
  266.         Left = 192
  267.         Top = 232
  268.         Width = 81
  269.         Height = 26
  270.         EditMask = '!99/99/00;1;_'
  271.         Font.Color = clBlack
  272.         Font.Height = -16
  273.         Font.Name = 'Arial'
  274.         Font.Style = []
  275.         MaxLength = 8
  276.         ParentFont = False
  277.         TabOrder = 7
  278.         Text = '  /  /  '
  279.       end
  280.       object D9: TMaskEdit
  281.         Left = 192
  282.         Top = 264
  283.         Width = 81
  284.         Height = 26
  285.         EditMask = '!99/99/00;1;_'
  286.         Font.Color = clBlack
  287.         Font.Height = -16
  288.         Font.Name = 'Arial'
  289.         Font.Style = []
  290.         MaxLength = 8
  291.         ParentFont = False
  292.         TabOrder = 8
  293.         Text = '  /  /  '
  294.       end
  295.       object GroupBox1: TGroupBox
  296.         Left = 280
  297.         Top = 8
  298.         Width = 257
  299.         Height = 281
  300.         Caption = 'Other Dates to Remember'
  301.         Font.Color = clBlue
  302.         Font.Height = -13
  303.         Font.Name = 'Arial'
  304.         Font.Style = [fsBold]
  305.         ParentFont = False
  306.         TabOrder = 9
  307.         object O1: TEdit
  308.           Left = 8
  309.           Top = 24
  310.           Width = 153
  311.           Height = 26
  312.           Font.Color = clBlack
  313.           Font.Height = -16
  314.           Font.Name = 'Arial'
  315.           Font.Style = []
  316.           ParentFont = False
  317.           TabOrder = 0
  318.         end
  319.         object D10: TMaskEdit
  320.           Left = 168
  321.           Top = 23
  322.           Width = 81
  323.           Height = 26
  324.           EditMask = '!99/99/00;1;_'
  325.           Font.Color = clBlack
  326.           Font.Height = -16
  327.           Font.Name = 'Arial'
  328.           Font.Style = []
  329.           MaxLength = 8
  330.           ParentFont = False
  331.           TabOrder = 1
  332.           Text = '  /  /  '
  333.         end
  334.         object D11: TMaskEdit
  335.           Left = 168
  336.           Top = 55
  337.           Width = 81
  338.           Height = 26
  339.           EditMask = '!99/99/00;1;_'
  340.           Font.Color = clBlack
  341.           Font.Height = -16
  342.           Font.Name = 'Arial'
  343.           Font.Style = []
  344.           MaxLength = 8
  345.           ParentFont = False
  346.           TabOrder = 3
  347.           Text = '  /  /  '
  348.         end
  349.         object D12: TMaskEdit
  350.           Left = 168
  351.           Top = 87
  352.           Width = 81
  353.           Height = 26
  354.           EditMask = '!99/99/00;1;_'
  355.           Font.Color = clBlack
  356.           Font.Height = -16
  357.           Font.Name = 'Arial'
  358.           Font.Style = []
  359.           MaxLength = 8
  360.           ParentFont = False
  361.           TabOrder = 5
  362.           Text = '  /  /  '
  363.         end
  364.         object D13: TMaskEdit
  365.           Left = 168
  366.           Top = 119
  367.           Width = 81
  368.           Height = 26
  369.           EditMask = '!99/99/00;1;_'
  370.           Font.Color = clBlack
  371.           Font.Height = -16
  372.           Font.Name = 'Arial'
  373.           Font.Style = []
  374.           MaxLength = 8
  375.           ParentFont = False
  376.           TabOrder = 7
  377.           Text = '  /  /  '
  378.         end
  379.         object D14: TMaskEdit
  380.           Left = 168
  381.           Top = 151
  382.           Width = 81
  383.           Height = 26
  384.           EditMask = '!99/99/00;1;_'
  385.           Font.Color = clBlack
  386.           Font.Height = -16
  387.           Font.Name = 'Arial'
  388.           Font.Style = []
  389.           MaxLength = 8
  390.           ParentFont = False
  391.           TabOrder = 9
  392.           Text = '  /  /  '
  393.         end
  394.         object D15: TMaskEdit
  395.           Left = 168
  396.           Top = 183
  397.           Width = 81
  398.           Height = 26
  399.           EditMask = '!99/99/00;1;_'
  400.           Font.Color = clBlack
  401.           Font.Height = -16
  402.           Font.Name = 'Arial'
  403.           Font.Style = []
  404.           MaxLength = 8
  405.           ParentFont = False
  406.           TabOrder = 11
  407.           Text = '  /  /  '
  408.         end
  409.         object D16: TMaskEdit
  410.           Left = 168
  411.           Top = 215
  412.           Width = 81
  413.           Height = 26
  414.           EditMask = '!99/99/00;1;_'
  415.           Font.Color = clBlack
  416.           Font.Height = -16
  417.           Font.Name = 'Arial'
  418.           Font.Style = []
  419.           MaxLength = 8
  420.           ParentFont = False
  421.           TabOrder = 13
  422.           Text = '  /  /  '
  423.         end
  424.         object D17: TMaskEdit
  425.           Left = 168
  426.           Top = 247
  427.           Width = 81
  428.           Height = 26
  429.           EditMask = '!99/99/00;1;_'
  430.           Font.Color = clBlack
  431.           Font.Height = -16
  432.           Font.Name = 'Arial'
  433.           Font.Style = []
  434.           MaxLength = 8
  435.           ParentFont = False
  436.           TabOrder = 15
  437.           Text = '  /  /  '
  438.         end
  439.         object O2: TEdit
  440.           Left = 8
  441.           Top = 56
  442.           Width = 153
  443.           Height = 26
  444.           Font.Color = clBlack
  445.           Font.Height = -16
  446.           Font.Name = 'Arial'
  447.           Font.Style = []
  448.           ParentFont = False
  449.           TabOrder = 2
  450.         end
  451.         object O3: TEdit
  452.           Left = 8
  453.           Top = 88
  454.           Width = 153
  455.           Height = 26
  456.           Font.Color = clBlack
  457.           Font.Height = -16
  458.           Font.Name = 'Arial'
  459.           Font.Style = []
  460.           ParentFont = False
  461.           TabOrder = 4
  462.         end
  463.         object O4: TEdit
  464.           Left = 8
  465.           Top = 120
  466.           Width = 153
  467.           Height = 26
  468.           Font.Color = clBlack
  469.           Font.Height = -16
  470.           Font.Name = 'Arial'
  471.           Font.Style = []
  472.           ParentFont = False
  473.           TabOrder = 6
  474.         end
  475.         object O5: TEdit
  476.           Left = 8
  477.           Top = 152
  478.           Width = 153
  479.           Height = 26
  480.           Font.Color = clBlack
  481.           Font.Height = -16
  482.           Font.Name = 'Arial'
  483.           Font.Style = []
  484.           ParentFont = False
  485.           TabOrder = 8
  486.         end
  487.         object O6: TEdit
  488.           Left = 8
  489.           Top = 184
  490.           Width = 153
  491.           Height = 26
  492.           Font.Color = clBlack
  493.           Font.Height = -16
  494.           Font.Name = 'Arial'
  495.           Font.Style = []
  496.           ParentFont = False
  497.           TabOrder = 10
  498.         end
  499.         object O7: TEdit
  500.           Left = 8
  501.           Top = 216
  502.           Width = 153
  503.           Height = 26
  504.           Font.Color = clBlack
  505.           Font.Height = -16
  506.           Font.Name = 'Arial'
  507.           Font.Style = []
  508.           ParentFont = False
  509.           TabOrder = 12
  510.         end
  511.         object O8: TEdit
  512.           Left = 8
  513.           Top = 248
  514.           Width = 153
  515.           Height = 26
  516.           Font.Color = clBlack
  517.           Font.Height = -16
  518.           Font.Name = 'Arial'
  519.           Font.Style = []
  520.           ParentFont = False
  521.           TabOrder = 14
  522.         end
  523.       end
  524.       object HelpBtn: TBitBtn
  525.         Left = 312
  526.         Top = 320
  527.         Width = 25
  528.         Height = 33
  529.         Caption = ' '
  530.         Font.Color = clYellow
  531.         Font.Height = -19
  532.         Font.Name = 'Arial'
  533.         Font.Style = []
  534.         ParentFont = False
  535.         TabOrder = 10
  536.         OnClick = HelpBtnClick
  537.         Kind = bkHelp
  538.         Margin = 2
  539.         Spacing = -1
  540.       end
  541.     end
  542.     object TTabPage
  543.       Left = 5
  544.       Top = 26
  545.       Caption = 'Prenatal Diary'
  546.       object Shape1: TShape
  547.         Left = 392
  548.         Top = 200
  549.         Width = 81
  550.         Height = 97
  551.         Brush.Color = clBtnFace
  552.         Pen.Color = clRed
  553.         Pen.Style = psInsideFrame
  554.         Pen.Width = 2
  555.       end
  556.       object Label3: TLabel
  557.         Left = 8
  558.         Top = 336
  559.         Width = 132
  560.         Height = 22
  561.         Caption = 'Prenatal History'
  562.         Font.Color = clBlue
  563.         Font.Height = -19
  564.         Font.Name = 'Arial'
  565.         Font.Style = []
  566.         ParentFont = False
  567.       end
  568.       object Label13: TLabel
  569.         Left = 152
  570.         Top = 8
  571.         Width = 41
  572.         Height = 19
  573.         Caption = 'Date:'
  574.         Font.Color = clBlue
  575.         Font.Height = -16
  576.         Font.Name = 'Arial'
  577.         Font.Style = [fsBold]
  578.         ParentFont = False
  579.       end
  580.       object Label14: TLabel
  581.         Left = 16
  582.         Top = 48
  583.         Width = 38
  584.         Height = 19
  585.         Caption = 'Title:'
  586.         Font.Color = clBlue
  587.         Font.Height = -16
  588.         Font.Name = 'Arial'
  589.         Font.Style = [fsBold]
  590.         ParentFont = False
  591.       end
  592.       object Label15: TLabel
  593.         Left = 360
  594.         Top = 24
  595.         Width = 99
  596.         Height = 19
  597.         Caption = 'Date Search:'
  598.         Font.Color = clBlue
  599.         Font.Height = -16
  600.         Font.Name = 'Arial'
  601.         Font.Style = [fsBold]
  602.         ParentFont = False
  603.       end
  604.       object Label16: TLabel
  605.         Left = 360
  606.         Top = 88
  607.         Width = 96
  608.         Height = 19
  609.         Caption = 'Title Search:'
  610.         Font.Color = clBlue
  611.         Font.Height = -16
  612.         Font.Name = 'Arial'
  613.         Font.Style = [fsBold]
  614.         ParentFont = False
  615.       end
  616.       object Title: TLabel
  617.         Left = 64
  618.         Top = 48
  619.         Width = 249
  620.         Height = 19
  621.         AutoSize = False
  622.         Caption = 'Diary Empty'
  623.         Font.Color = clBlue
  624.         Font.Height = -16
  625.         Font.Name = 'Arial'
  626.         Font.Style = [fsBold]
  627.         ParentFont = False
  628.       end
  629.       object SpeedButton1: TSpeedButton
  630.         Left = 288
  631.         Top = 248
  632.         Width = 25
  633.         Height = 25
  634.         Hint = 'Prevoious Entry'
  635.         Glyph.Data = {
  636.           78010000424D7801000000000000760000002800000020000000100000000100
  637.           04000000000000000000120B0000120B00000000000000000000000000000000
  638.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  639.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
  640.           3333333333777F33333333333309033333333333337F7F333333333333090333
  641.           33333333337F7F33333333333309033333333333337F7F333333333333090333
  642.           33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
  643.           3333333777737777F333333099999990333333373F3333373333333309999903
  644.           333333337F33337F33333333099999033333333373F333733333333330999033
  645.           3333333337F337F3333333333099903333333333373F37333333333333090333
  646.           33333333337F7F33333333333309033333333333337373333333333333303333
  647.           333333333337F3333333333333303333333333333337333333330000}
  648.         NumGlyphs = 2
  649.         ParentShowHint = False
  650.         ShowHint = True
  651.         OnClick = SpeedButton1Click
  652.       end
  653.       object SpeedButton3: TSpeedButton
  654.         Left = 288
  655.         Top = 280
  656.         Width = 25
  657.         Height = 25
  658.         Hint = 'Next Entry'
  659.         Glyph.Data = {
  660.           78010000424D7801000000000000760000002800000020000000100000000100
  661.           04000000000000000000120B0000120B00000000000000000000000000000000
  662.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  663.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
  664.           333333333337F33333333333333033333333333333373F333333333333090333
  665.           33333333337F7F33333333333309033333333333337373F33333333330999033
  666.           3333333337F337F33333333330999033333333333733373F3333333309999903
  667.           333333337F33337F33333333099999033333333373333373F333333099999990
  668.           33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
  669.           33333333337F7F33333333333309033333333333337F7F333333333333090333
  670.           33333333337F7F33333333333309033333333333337F7F333333333333090333
  671.           33333333337F7F333333333333000333333333333377733333330000}
  672.         NumGlyphs = 2
  673.         ParentShowHint = False
  674.         ShowHint = True
  675.         OnClick = SpeedButton3Click
  676.       end
  677.       object DelButton: TSpeedButton
  678.         Left = 408
  679.         Top = 224
  680.         Width = 49
  681.         Height = 49
  682.         Glyph.Data = {
  683.           26020000424D260200000000000076000000280000001C0000001B0000000100
  684.           040000000000B0010000CE0E0000D80E00000000000000000000000000000000
  685.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  686.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
  687.           66666666676666660000666666666666666666667B101B160000666666666666
  688.           66666667B101B1B600006666666666666666667B101B1B060000666666666666
  689.           666667B101B1B0B6000066666666666666667B101B1B0B060000666666666666
  690.           66670101B1B0B00600006666666666666672001B1B0B00060000666666666666
  691.           67022201B0B0000600006666666666667B0022000B0000660000666666666667
  692.           B1B10220B0000666000066666666667B1B1B0020000066660000666666666701
  693.           B1B1B0200006666600006666666672001B1B1000006666660000666666670222
  694.           01B1B000066666660000666666780022001B00006666666600006666678D8D02
  695.           20B0000666666666000066667008D800200000666666666600006667FDF08D80
  696.           20000666666666660000667FDFD0D8D00000666666666666000067FDFDF00D80
  697.           0006666666666666000067DFDFDF08000066666666666666000060FDFDFD0000
  698.           06666666666666660000600FDFDF000066666666666666660000600DFDF00006
  699.           6666666666666666000060000000006666666666666666660000660000000666
  700.           66666666666666660000}
  701.         OnClick = DelButtonClick
  702.       end
  703.       object Label17: TLabel
  704.         Left = 400
  705.         Top = 208
  706.         Width = 65
  707.         Height = 16
  708.         Alignment = taCenter
  709.         AutoSize = False
  710.         Caption = 'Delete'
  711.         Font.Color = clRed
  712.         Font.Height = -13
  713.         Font.Name = 'System'
  714.         Font.Style = [fsBold]
  715.         ParentFont = False
  716.         Transparent = True
  717.       end
  718.       object Label18: TLabel
  719.         Left = 400
  720.         Top = 272
  721.         Width = 65
  722.         Height = 16
  723.         Alignment = taCenter
  724.         AutoSize = False
  725.         Caption = 'Record'
  726.         Font.Color = clRed
  727.         Font.Height = -13
  728.         Font.Name = 'System'
  729.         Font.Style = [fsBold]
  730.         ParentFont = False
  731.         Transparent = True
  732.       end
  733.       object EntryDate: TLabel
  734.         Left = 200
  735.         Top = 8
  736.         Width = 64
  737.         Height = 19
  738.         Caption = '__-__-__'
  739.         Font.Color = clBlue
  740.         Font.Height = -16
  741.         Font.Name = 'Arial'
  742.         Font.Style = [fsBold]
  743.         ParentFont = False
  744.       end
  745.       object Entry: TMemo
  746.         Left = 16
  747.         Top = 80
  748.         Width = 265
  749.         Height = 225
  750.         Lines.Strings = (
  751.           '')
  752.         ScrollBars = ssVertical
  753.         TabOrder = 0
  754.       end
  755.       object DateSearch: TComboBox
  756.         Left = 360
  757.         Top = 48
  758.         Width = 145
  759.         Height = 26
  760.         Font.Color = clBlue
  761.         Font.Height = -16
  762.         Font.Name = 'Arial'
  763.         Font.Style = []
  764.         ItemHeight = 18
  765.         ParentFont = False
  766.         TabOrder = 1
  767.         OnClick = DateSearchClick
  768.       end
  769.       object TitleSearch: TComboBox
  770.         Left = 360
  771.         Top = 112
  772.         Width = 145
  773.         Height = 26
  774.         Font.Color = clBlue
  775.         Font.Height = -16
  776.         Font.Name = 'Arial'
  777.         Font.Style = []
  778.         ItemHeight = 18
  779.         ParentFont = False
  780.         TabOrder = 2
  781.         OnClick = TitleSearchClick
  782.       end
  783.       object BitBtn1: TBitBtn
  784.         Left = 360
  785.         Top = 152
  786.         Width = 145
  787.         Height = 33
  788.         Caption = 'New Entry'
  789.         Font.Color = clBlue
  790.         Font.Height = -19
  791.         Font.Name = 'Arial'
  792.         Font.Style = [fsBold]
  793.         ParentFont = False
  794.         TabOrder = 3
  795.         OnClick = BitBtn1Click
  796.       end
  797.       object BitBtn3: TBitBtn
  798.         Left = 312
  799.         Top = 320
  800.         Width = 25
  801.         Height = 33
  802.         Caption = ' '
  803.         Font.Color = clYellow
  804.         Font.Height = -19
  805.         Font.Name = 'Arial'
  806.         Font.Style = []
  807.         ParentFont = False
  808.         TabOrder = 4
  809.         OnClick = BitBtn3Click
  810.         Kind = bkHelp
  811.         Margin = 2
  812.         Spacing = -1
  813.       end
  814.     end
  815.     object TTabPage
  816.       Left = 5
  817.       Top = 26
  818.       Caption = 'Prenatal Medical Diary'
  819.       object Shape2: TShape
  820.         Left = 392
  821.         Top = 200
  822.         Width = 81
  823.         Height = 97
  824.         Brush.Color = clBtnFace
  825.         Pen.Color = clRed
  826.         Pen.Style = psInsideFrame
  827.         Pen.Width = 2
  828.       end
  829.       object Label4: TLabel
  830.         Left = 8
  831.         Top = 336
  832.         Width = 132
  833.         Height = 22
  834.         Caption = 'Prenatal History'
  835.         Font.Color = clBlue
  836.         Font.Height = -19
  837.         Font.Name = 'Arial'
  838.         Font.Style = []
  839.         ParentFont = False
  840.       end
  841.       object Label19: TLabel
  842.         Left = 152
  843.         Top = 8
  844.         Width = 41
  845.         Height = 19
  846.         Caption = 'Date:'
  847.         Font.Color = clBlue
  848.         Font.Height = -16
  849.         Font.Name = 'Arial'
  850.         Font.Style = [fsBold]
  851.         ParentFont = False
  852.       end
  853.       object Label20: TLabel
  854.         Left = 16
  855.         Top = 48
  856.         Width = 38
  857.         Height = 19
  858.         Caption = 'Title:'
  859.         Font.Color = clBlue
  860.         Font.Height = -16
  861.         Font.Name = 'Arial'
  862.         Font.Style = [fsBold]
  863.         ParentFont = False
  864.       end
  865.       object Label21: TLabel
  866.         Left = 360
  867.         Top = 24
  868.         Width = 99
  869.         Height = 19
  870.         Caption = 'Date Search:'
  871.         Font.Color = clBlue
  872.         Font.Height = -16
  873.         Font.Name = 'Arial'
  874.         Font.Style = [fsBold]
  875.         ParentFont = False
  876.       end
  877.       object Label22: TLabel
  878.         Left = 360
  879.         Top = 88
  880.         Width = 96
  881.         Height = 19
  882.         Caption = 'Title Search:'
  883.         Font.Color = clBlue
  884.         Font.Height = -16
  885.         Font.Name = 'Arial'
  886.         Font.Style = [fsBold]
  887.         ParentFont = False
  888.       end
  889.       object MedTitle: TLabel
  890.         Left = 64
  891.         Top = 48
  892.         Width = 249
  893.         Height = 19
  894.         AutoSize = False
  895.         Caption = 'Diary Empty'
  896.         Font.Color = clBlue
  897.         Font.Height = -16
  898.         Font.Name = 'Arial'
  899.         Font.Style = [fsBold]
  900.         ParentFont = False
  901.       end
  902.       object SpeedButton2: TSpeedButton
  903.         Left = 288
  904.         Top = 248
  905.         Width = 25
  906.         Height = 25
  907.         Hint = 'Previous Entry'
  908.         Glyph.Data = {
  909.           78010000424D7801000000000000760000002800000020000000100000000100
  910.           04000000000000000000120B0000120B00000000000000000000000000000000
  911.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  912.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
  913.           3333333333777F33333333333309033333333333337F7F333333333333090333
  914.           33333333337F7F33333333333309033333333333337F7F333333333333090333
  915.           33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
  916.           3333333777737777F333333099999990333333373F3333373333333309999903
  917.           333333337F33337F33333333099999033333333373F333733333333330999033
  918.           3333333337F337F3333333333099903333333333373F37333333333333090333
  919.           33333333337F7F33333333333309033333333333337373333333333333303333
  920.           333333333337F3333333333333303333333333333337333333330000}
  921.         NumGlyphs = 2
  922.         ParentShowHint = False
  923.         ShowHint = True
  924.         OnClick = SpeedButton2Click
  925.       end
  926.       object SpeedButton4: TSpeedButton
  927.         Left = 408
  928.         Top = 224
  929.         Width = 49
  930.         Height = 49
  931.         Glyph.Data = {
  932.           26020000424D260200000000000076000000280000001C0000001B0000000100
  933.           040000000000B0010000CE0E0000D80E00000000000000000000000000000000
  934.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  935.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
  936.           66666666676666660000666666666666666666667B101B160000666666666666
  937.           66666667B101B1B600006666666666666666667B101B1B060000666666666666
  938.           666667B101B1B0B6000066666666666666667B101B1B0B060000666666666666
  939.           66670101B1B0B00600006666666666666672001B1B0B00060000666666666666
  940.           67022201B0B0000600006666666666667B0022000B0000660000666666666667
  941.           B1B10220B0000666000066666666667B1B1B0020000066660000666666666701
  942.           B1B1B0200006666600006666666672001B1B1000006666660000666666670222
  943.           01B1B000066666660000666666780022001B00006666666600006666678D8D02
  944.           20B0000666666666000066667008D800200000666666666600006667FDF08D80
  945.           20000666666666660000667FDFD0D8D00000666666666666000067FDFDF00D80
  946.           0006666666666666000067DFDFDF08000066666666666666000060FDFDFD0000
  947.           06666666666666660000600FDFDF000066666666666666660000600DFDF00006
  948.           6666666666666666000060000000006666666666666666660000660000000666
  949.           66666666666666660000}
  950.         OnClick = SpeedButton4Click
  951.       end
  952.       object SpeedButton5: TSpeedButton
  953.         Left = 288
  954.         Top = 280
  955.         Width = 25
  956.         Height = 25
  957.         Hint = 'Next Entry'
  958.         Glyph.Data = {
  959.           78010000424D7801000000000000760000002800000020000000100000000100
  960.           04000000000000000000120B0000120B00000000000000000000000000000000
  961.           800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  962.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
  963.           333333333337F33333333333333033333333333333373F333333333333090333
  964.           33333333337F7F33333333333309033333333333337373F33333333330999033
  965.           3333333337F337F33333333330999033333333333733373F3333333309999903
  966.           333333337F33337F33333333099999033333333373333373F333333099999990
  967.           33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
  968.           33333333337F7F33333333333309033333333333337F7F333333333333090333
  969.           33333333337F7F33333333333309033333333333337F7F333333333333090333
  970.           33333333337F7F333333333333000333333333333377733333330000}
  971.         NumGlyphs = 2
  972.         ParentShowHint = False
  973.         ShowHint = True
  974.         OnClick = SpeedButton5Click
  975.       end
  976.       object Label24: TLabel
  977.         Left = 400
  978.         Top = 208
  979.         Width = 65
  980.         Height = 16
  981.         Alignment = taCenter
  982.         AutoSize = False
  983.         Caption = 'Delete'
  984.         Font.Color = clRed
  985.         Font.Height = -13
  986.         Font.Name = 'System'
  987.         Font.Style = [fsBold]
  988.         ParentFont = False
  989.         Transparent = True
  990.       end
  991.       object Label25: TLabel
  992.         Left = 400
  993.         Top = 272
  994.         Width = 65
  995.         Height = 16
  996.         Alignment = taCenter
  997.         AutoSize = False
  998.         Caption = 'Record'
  999.         Font.Color = clRed
  1000.         Font.Height = -13
  1001.         Font.Name = 'System'
  1002.         Font.Style = [fsBold]
  1003.         ParentFont = False
  1004.         Transparent = True
  1005.       end
  1006.       object MedDate: TLabel
  1007.         Left = 200
  1008.         Top = 8
  1009.         Width = 64
  1010.         Height = 19
  1011.         Caption = '__-__-__'
  1012.         Font.Color = clBlue
  1013.         Font.Height = -16
  1014.         Font.Name = 'Arial'
  1015.         Font.Style = [fsBold]
  1016.         ParentFont = False
  1017.       end
  1018.       object MedEntry: TMemo
  1019.         Left = 16
  1020.         Top = 80
  1021.         Width = 265
  1022.         Height = 225
  1023.         Lines.Strings = (
  1024.           '')
  1025.         ScrollBars = ssVertical
  1026.         TabOrder = 0
  1027.       end
  1028.       object MedDateSearch: TComboBox
  1029.         Left = 360
  1030.         Top = 48
  1031.         Width = 145
  1032.         Height = 26
  1033.         Font.Color = clBlue
  1034.         Font.Height = -16
  1035.         Font.Name = 'Arial'
  1036.         Font.Style = []
  1037.         ItemHeight = 18
  1038.         ParentFont = False
  1039.         TabOrder = 1
  1040.         OnClick = MedDateSearchClick
  1041.       end
  1042.       object MedTitleSearch: TComboBox
  1043.         Left = 360
  1044.         Top = 112
  1045.         Width = 145
  1046.         Height = 26
  1047.         Font.Color = clBlue
  1048.         Font.Height = -16
  1049.         Font.Name = 'Arial'
  1050.         Font.Style = []
  1051.         ItemHeight = 18
  1052.         ParentFont = False
  1053.         TabOrder = 2
  1054.         OnClick = MedTitleSearchClick
  1055.       end
  1056.       object BitBtn2: TBitBtn
  1057.         Left = 360
  1058.         Top = 152
  1059.         Width = 145
  1060.         Height = 33
  1061.         Caption = 'New Entry'
  1062.         Font.Color = clBlue
  1063.         Font.Height = -19
  1064.         Font.Name = 'Arial'
  1065.         Font.Style = [fsBold]
  1066.         ParentFont = False
  1067.         TabOrder = 3
  1068.         OnClick = BitBtn2Click
  1069.       end
  1070.       object BitBtn4: TBitBtn
  1071.         Left = 312
  1072.         Top = 320
  1073.         Width = 25
  1074.         Height = 33
  1075.         Caption = ' '
  1076.         Font.Color = clYellow
  1077.         Font.Height = -19
  1078.         Font.Name = 'Arial'
  1079.         Font.Style = []
  1080.         ParentFont = False
  1081.         TabOrder = 4
  1082.         OnClick = BitBtn4Click
  1083.         Kind = bkHelp
  1084.         Margin = 2
  1085.         Spacing = -1
  1086.       end
  1087.     end
  1088.   end
  1089.   object OKBtn: TBitBtn
  1090.     Left = 352
  1091.     Top = 344
  1092.     Width = 93
  1093.     Height = 33
  1094.     Caption = 'Ok'
  1095.     Default = True
  1096.     Font.Color = clGreen
  1097.     Font.Height = -19
  1098.     Font.Name = 'Arial'
  1099.     Font.Style = []
  1100.     ModalResult = 1
  1101.     ParentFont = False
  1102.     TabOrder = 1
  1103.     OnClick = OKBtnClick
  1104.     Glyph.Data = {
  1105.       F6000000424DF600000000000000760000002800000010000000100000000100
  1106.       04000000000080000000CE0E0000D80E00000000000000000000000000000000
  1107.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  1108.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  1109.       5555555555555555555555555205555555555555222055555555555522205555
  1110.       5555555222220555555555222222055555555722052220555555720555522055
  1111.       5555555555522205555555555555220555555555555552205555555555555572
  1112.       0555555555555557205555555555555552205555555555555555}
  1113.     Margin = 8
  1114.     Spacing = -1
  1115.   end
  1116.   object CancelBtn: TBitBtn
  1117.     Left = 448
  1118.     Top = 344
  1119.     Width = 93
  1120.     Height = 33
  1121.     Font.Color = clRed
  1122.     Font.Height = -19
  1123.     Font.Name = 'Arial'
  1124.     Font.Style = []
  1125.     ParentFont = False
  1126.     TabOrder = 2
  1127.     OnClick = CancelBtnClick
  1128.     Kind = bkCancel
  1129.     Margin = 4
  1130.     Spacing = -1
  1131.   end
  1132. end
  1133.